home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 331 / gemfsc14 / aessrc14 / aesrsrc1.s < prev    next >
Text File  |  1989-04-06  |  2KB  |  62 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.           .include  "aesfast.sh"
  9.           
  10. ;*************************************************************************
  11. ;*
  12. ;* Resource manager routines 1 of 2.
  13. ;*
  14. ;*************************************************************************
  15.  
  16. ;-------------------------------------------------------------------------
  17. ; rsrc_load
  18. ;-------------------------------------------------------------------------
  19.  
  20. _rsrc_load::
  21.           .cargs    #4,.ptr.l
  22.           AControl  110,0,1,1
  23.           lea       .ptr(sp),a0       ; -> addrin
  24.           ACall     RET2USER
  25.           
  26. ;-------------------------------------------------------------------------
  27. ; rsrc_free
  28. ;-------------------------------------------------------------------------
  29.  
  30. _rsrc_free::
  31.           AControl  111,0,1,0
  32.           ACall     RET2USER
  33.  
  34. ;-------------------------------------------------------------------------
  35. ; rsrc_gaddr - The one AES function that uses 'addrout'...
  36. ;-------------------------------------------------------------------------
  37.  
  38. _rsrc_gaddr::
  39.           .cargs    #8,.type,.idx,.paddr.l
  40.           link      a6,#-2
  41.           
  42.           lea       aesblock,a0             ; Since this function uses
  43.           move.l    .paddr(a6),padrout(a0)  ; 'addrout', we will set it &
  44.           move.w    #1,sadrout(a0)          ; 'sintout' here (into aespb).
  45.  
  46.           AControl  112,2,1,0
  47.  
  48.           moveq.l   #-2,d2    
  49.           lea       .type(a6),a1
  50.           ACall     RET2HERE
  51.           
  52.           lea       aesblock,a0         ; Put sadrout and sintout back to
  53.           clr.l     padrout(a0)         ; zero, since all other functions
  54.           clr.w     sadrout(a0)         ; assume they will always be zero.
  55.           
  56.           move.w    -2(a6),d0
  57.           unlk      a6
  58.           rts
  59.           
  60. ;         end of code
  61.  
  62.